home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 16 / 64er_Magazin_Sonderheft_16_19xx_Markt__Technik_de_Side_A.d64 / ls 3 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  885b  |  40 lines
  1. 100 rem prioritaeten eines sprites
  2. 110 rem
  3. 120 rem spritedaten in block 128 laden
  4. 130 rem
  5. 140 for n=8192 to 8254:read q:poke n,q:next
  6. 150 data 0,160,0,2,168,0,2,145,64
  7. 160 data 2,85,64,2,85,0,0,84,0
  8. 170 data 0,208,0,0,240,0,1,124,0
  9. 180 data 5,255,0,23,255,0,23,255,64
  10. 190 data 5,255,80,1,252,80,0,168,0
  11. 200 data 0,170,0,2,250,128,10,194,128
  12. 210 data 91,2,128,92,6,128,21,69,84
  13. 220 rem *****************************
  14. 230 rem prioritaeten setzen
  15. 240 rem
  16. 250 rem vorbereitungen
  17. 260 rem
  18. 270 rem farben
  19. 280 poke53280,5:poke53281,0:poke53285,8
  20. 290 poke53286,11:poke53287,7
  21. 300 rem
  22. 310 poke53276,1:rem sprite 0 multicolor
  23. 320 poke53277,0:rem vergroesserung loeschen
  24. 330 poke53248,160:poke53249,120:rem anfangsposition
  25. 340 gosub420:rem gitter zeichnen
  26. 350 poke53269,1:rem sprite 0 an
  27. 360 gett$:ift$=""then360
  28. 370 ifpeek(53275)=0thenpoke53275,1:goto360
  29. 380 poke53275,0:goto360
  30. 390 rem
  31. 400 rem gitter zeichnen
  32. 410 rem
  33. 420 print"[147]";
  34. 430 printtab(15)"      [146]"
  35. 440 forw=1to4
  36. 450 printtab(15);"[194][194][194][194][194][194]"
  37. 460 nextw
  38. 470 printtab(15);"      [146]"
  39. 480 return
  40.